home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Guided Tour Mac II / D4 / D4.rsrc / TEXT_1033.txt < prev    next >
Text File  |  1988-05-05  |  265b  |  11 lines
  1. #macro to detect icon drag
  2. SET &H = MOUSEH
  3. SET &V = MOUSEV
  4. IF NOT STILLDOWN THEN EXIT
  5. IF ABS(MOUSEH-&H) > 3 THEN SKIP 3
  6. IF ABS(MOUSEV-&V) > 3 THEN SKIP 2
  7. SKIP -3
  8. SET SPRITEID[12] = F32
  9. SET SPRITEH[12]=MOUSEH
  10. SET SPRITEV[12]=MOUSEV
  11. WHEN MOUSEUP THEN CALL A24ÀáI